home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / trial.src < prev    next >
Text File  |  1990-12-20  |  3KB  |  144 lines
  1. %%HP: T(3)A(R)F(,);
  2. @
  3. @ TRIAL (generated by hp48pack at 21.12.90)
  4. @
  5. @$NAME     TRIAL
  6. @$DATE     21.12.90
  7. @$VERSION  2.18
  8. @
  9. @
  10. @ UserTrial      2.02 11.12.90
  11. @ CodeTrial      1.00 21.12.90
  12. @ Install        2.00 21.12.90
  13. @ TRIAL          2.00 21.12.90
  14. @
  15. @
  16. \<< CLLCD
  17.   "----------------------" DUP 1 DISP
  18.   "TRIAL    2.18 21.12.90" 2 DISP
  19.    DUP 3 DISP
  20.    " Factoring by a Wheel" 4 DISP
  21.    "    by Klaus Kalb" 5 DISP
  22.    6 DISP
  23. \<<
  24. @ $NAME    UserTrial
  25. @ $DATE    11.12.90
  26. @ $VERSION 2.02
  27.  
  28. \<<
  29.    \-> n b
  30.    \<<
  31.      IFERR
  32.        IF n TYPE DUP 0 \=/ SWAP 10 \=/ AND THEN 514 DOERR END
  33.        IF b TYPE DUP 0 \=/ SWAP 10 \=/ AND THEN 514 DOERR END
  34.        IF n #0d + DUP #7FFFFFFFFFFFFFFFh > SWAP #0d == OR THEN 515 DOERR END
  35.        IF b #0d + #FFFFFh > THEN 515 DOERR END
  36.      THEN
  37.        IF -55 FC? THEN n b END
  38.        ERRN DOERR
  39.      END
  40.      n #0d +
  41.      b #0d +
  42.      CodeTrial
  43.      SWAP
  44.      #18DBFh SYSEVAL    @ Short to Real
  45.      \-> r k
  46.      \<<
  47.        IF k THEN
  48.          1 k START
  49.            #18DBFh SYSEVAL 
  50.            k ROLL
  51.          NEXT
  52.        END
  53.        k \->LIST
  54.  
  55.        IF r #1d > THEN
  56.          r
  57.          IF
  58.            DUP DUP B\->R R\->B ==
  59.            THEN
  60.              B\->R
  61.            END
  62.            +
  63.          END
  64.        IF b #1d + DUP * r > THEN "+" \->TAG END
  65.      \>>
  66.    \>>
  67. \>>
  68.  
  69. @ $END UserTrial
  70.  
  71.  'UserTrial' STO
  72.  
  73.  
  74. @ $NAME    CodeTrial
  75. @ $DATE    21.12.90
  76. @ $VERSION 1.00
  77. @ $COMMAND ASC\->
  78.  
  79. "CCD20B61008F77F3510110AAF210810B2081B58082444000C213665702424626
  80. 42466264264684242486462462664246264242A2A021224011BD2BF6BF6BF6BF
  81. 6BF6BF61088F2D7608F735608FB97601112F8DD6950AF015A097CB12081B5808
  82. 24C7FFFC21366EDF118C24A91081181129F2C8111118AF3AF19F262A76B779FE
  83. 7F81EA75A7F9F280B7AB7597F9E11A9F180AF910A97CD3AF4101113132AF2263
  84. 01A7A103208F2D7608F735608FB9760113130657F1606E3F2485"
  85.  
  86. @ $END CodeTrial
  87.  
  88.  ASC\->
  89.  'CodeTrial' STO
  90.  
  91.  
  92. @ $NAME    Install
  93. @ $DATE    21.12.90
  94. @ $VERSION 2.00
  95. \<<
  96.   'UserTrial' RCL
  97.    #054AFh SYSEVAL  @ PRG\->
  98.    #05459h SYSEVAL  @ \->LIST
  99.    DUP 'CodeTrial' POS 
  100.    SWAP SIZE
  101.    SWAP - 2 + \-> n 
  102.    \<<
  103.       'UserTrial' RCL #054AFh SYSEVAL 
  104.       n ROLL
  105.       DROP 'CodeTrial' RCL
  106.       n ROLLD   
  107.    \>>
  108.    #05445h SYSEVAL @ \->PRG
  109. \>>
  110. @ $END Install
  111.  
  112.  'Install' STO
  113.  
  114.  
  115. @ $NAME    TRIAL
  116. @ $DATE    21.12.90
  117. @ $VERSION 2.00
  118. @ $COMMAND EVAL
  119.  
  120. \<<
  121.    Install
  122.    { 'UserTrial' 'CodeTrial' 'Install' } PURGE
  123. \>>
  124. @ $END TRIAL
  125.  
  126.  EVAL
  127.  'TRIAL' STO
  128.  
  129.  
  130. \>>
  131.   " unpack ?" 7 DISP
  132. @
  133.   { { "YES" \<< EVAL 
  134.              " TRIAL installed." 7 DISP 3 FREEZE
  135.              0 MENU \>> }
  136.              "" "" "" "" 
  137.     { "NO" \<< DROP 
  138.              0 MENU \>> }
  139.   } 3 FREEZE TMENU \>> 
  140.  
  141. @$END TRIAL
  142.  
  143. @ END END END END END END END END END END END END END END END END END END
  144.